home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 62 / Quick PC 62.iso / I386 / IIS5_01.CAB / IIS_iiset.asp < prev    next >
Encoding:
Text File  |  1999-06-03  |  1.0 KB  |  50 lines
  1. <%@ LANGUAGE = VBScript %>
  2. <% Option Explicit %>
  3. <!-- #include file="directives.inc" -->
  4.  
  5. <!--#include file="iiset.str"-->
  6.  
  7. <% 
  8. Dim key
  9.  
  10. ' Called by iihd.asp, when opening property sheets.
  11.  
  12. ' this is a fairly generic script... we pass in a variety of keys to set our session vars with
  13. ' including, but not limited to: vtype, stype, spath, dpath
  14.  
  15.  
  16.  
  17. For Each key In Request.QueryString
  18.     'Response.write "KEY:" & key
  19.     'Response.write "     VAL:" & Request.QueryString(key) & "<P>"
  20.     Session(key)=Request.QueryString(key)
  21. Next
  22.  
  23.  %>
  24.  
  25. <HTML>
  26. <BODY>
  27.  
  28. <SCRIPT LANGUAGE="JavaScript"> 
  29.     <!--#include file="iisetfnt.inc"-->
  30.     <!--#include file="iijsfuncs.inc"-->
  31.     
  32.  
  33. if ("<%= Request.QueryString("vtype") %>"=="comp"){
  34.     popBox("computer",<%= L_IICOMP_W %>,<%= L_IICOMP_H %>,"iicomp");
  35.     top.body.iisstatus.location="iistat.asp"
  36. }
  37. else{
  38.     path = "ii<%= Request.QueryString("stype") %>.asp?vtype=<%= Request.QueryString("vtype") %>";
  39.         
  40.     top.body.location.href=(path);
  41. }
  42.  
  43.  
  44.  
  45. </SCRIPT>
  46.  
  47. </BODY>
  48. </HTML>
  49.  
  50.